function (testDateStr) 
{
    d <- createUtcDate(testDateStr, tzId_AUest)
    dr <- pctToUtc(as.POSIXct(testDateStr, tz = tzIdR_AUest))
    expect_posixct_equal(d, dr, mAct = "From CLR", mExp = "Expected")
}

hourInDate <- function(d) 
{
    as.POSIXlt(d)$hour
}

d <- seq(from=as.Date('2009-01-01'), to=as.Date('2014-12-31'), by=1)
dstr <- as.character(d)
dn <- createUtcDate(dstr, tzId_AUest)
dr <- pctToUtc(as.POSIXct(dstr, tz = tzIdR_AUest))

a <- zoo(data.frame(dn=hourInDate(dn), dr=hourInDate(dr)), d)
plot(a[1:370], plot.type='single', col=c('blue','red'))

